10 REM***********************
20 REM*WHICHGLUE?*
30 REM*BYSANDYSMITH*
40 REM*11SEPTEMBER1983*
50 REM***********************
60 VT$="":GOTO120
70 REM*SUBROUTINES*
80 PRINTSPC(20-LEN(A$)/2)A$:RETURN
90 PRINT"[147]"M$(C1);" [193][206][196] ";M$(C2):PRINT
92 PRINT"[195][193][206] [194][197] [199][204][213][197][196] [212][207][199][197][212][200][197][210] [215][201][212][200]:":PRINT:PRINT:RETURN
100 PRINT:PRINT:PRINT:PRINT"[206][207][212][197]: [211][207][205][197] [208][204][193][211][212][201][195][211] [193][210][197] [196][201][198][198][201][195][213][204][212] [212][207]"
102 PRINTSPC(7)"[199][204][213][197] [212][207] [211][213][210][198][193][195][197][211] [215][201][212][200] [193][206][217] [212][217][208][197]"
104 PRINTSPC(7)"[207][198] [193][196][200][197][211][201][214][197].":RETURN
110 REM*TITLEPAGE*
120 PRINT"[147]":A$="[215][200][201][195][200] [199][204][213][197]?":GOSUB80:PRINT
122 A$="[194][217] [211][193][206][196][217] [211][205][201][212][200]":GOSUB80:PRINT
130 PRINT:PRINT"  [212][200][201][211] [208][210][207][199][210][193][205] [215][201][204][204] [208][210][207][214][201][196][197] [217][207][213] [215][201][212][200] [193]":PRINT
132 PRINT"[204][201][211][212] [207][198] [199][204][213][197][211] [212][200][193][212] [195][193][206] [194][197] [213][211][197][196] [212][207] [211][212][201][195][203]":PRINT
134 PRINT"[212][215][207] [205][193][212][197][210][201][193][204][211] [212][207][199][197][212][200][197][210].  [198][207][210] [201][206][198][207][210][205][193][212][201][207][206]"
140 PRINT"[207][206] [212][200][197] [199][204][213][201][206][199] [208][210][207][208][197][210][212][201][197][211] [193][206][196] [207][212][200][197][210]":PRINT
142 PRINT"[198][193][195][212][207][210][211] [207][198] 10 [194][193][211][201][195] [203][201][206][196][211] [207][198] [193][196][200][197][211][201][214][197][211],":PRINT
144 PRINT"[210][213][206] [212][200][197] [208][210][207][199][210][193][205] [195][193][204][204][197][196] ";CHR$(34);"[199][204][213][197] [199][213][201][196][197]";CHR$(34)"."
150 PRINT:PRINT"    [212][200][197] [201][206][198][207][210][205][193][212][201][207][206] [201][211] [198][210][207][205] [212][200][197] [202][213][206][197] 21,"
152 PRINT"1983 [201][211][211][213][197] [207][198] [198][193][205][201][204][217] [195][201][210][195][204][197] [205][193][199][193][218][201][206][197]."
160 PRINTVT$"        [208][210][197][211][211] [193][160][203][197][217][160][212][207][160][195][207][206][212][201][206][213][197].";:POKE198,0:WAIT198,1
170 REM*INITIALIZATION*
180 DIMGL$(11),M$(10):B$=CHR$(7):FORI=1TO11:READGL$(I):NEXTI
190 FORI=1TO10:READM$(I):NEXTI
200 REM*THESELECTION*
210 PRINT"[147]":PRINT" [211][197][204][197][195][212] [207][206][197] [205][193][212][197][210][201][193][204] [198][210][207][205] [197][193][195][200] [195][207][204][213][205][206]."
220 PRINT"":FORI=1TO10:
230 PRINT"[157]"I-1;"[157].";M$(I);
232 PRINTSPC(17-LEN(M$(I)))CHR$(I+64);".";M$(I);:IFI<>10THENPRINT
240 NEXTI:PRINTSPC(6)"([198][207][210][205][201][195][193])";
242 PRINTSPC(10)"([198][207][210][205][201][195][193])"
250 C1$="":PRINTLEFT$(VT$,22):PRINT"[195][200][207][201][195][197] [198][210][207][205] [195][207][204][213][205][206] 1      [157][157][157][157][157] "
251 PRINT"[145][145][145][145]"SPC(5)"^";:POKE198,0:WAIT198,1:GETC1$:IFC1$<"0"ORC1$>"9"THEN250
252 C1=VAL(C1$)+1:IFC1<1ORC1>10THEN250
260 C2$="":PRINTLEFT$(VT$,22):PRINT"[195][200][207][201][195][197] [198][210][207][205] [195][207][204][213][205][206] 2      [157][157][157][157][157] "
261 PRINT"[145][145][145][145]      "SPC(20)"^":POKE198,0:WAIT198,1:GETC2$:IFC2$<"A"ORC2$>"J"THEN260
262 C2=ASC(C2$+CHR$(0))
270 C2=C2-64:IFC2<1ORC2>10THEN260
280 ONC1GOTO290,300,310,320,330,340,350,360,370,380:REM1STCOLUMNSELECTION
290 ONC2GOTO400,410,420,430,440,450,460,470,480,490:REMWOOD
300 ONC2GOTO410,500,510,520,530,540,460,550,560,570:REMGLASS
310 ONC2GOTO420,510,510,580,590,600,610,620,630,630:REMRUBBER
320 ONC2GOTO430,520,580,640,650,660,670,680,690,690:REMMETAL
330 ONC2GOTO440,530,590,650,700,710,710,720,730,730:REMLEATHER
340 ONC2GOTO450,540,600,660,710,740,750,760,770,770:REMHARDPLASTIC
350 ONC2GOTO460,460,610,670,710,750,460,460,460,460:REMSOFTPLASTIC
360 ONC2GOTO470,550,620,680,720,760,460,780,780,790:REMVINYLTILE
370 ONC2GOTO480,560,630,690,730,770,460,780,800,800:REMCERAMICTILE
380 ONC2GOTO490,570,630,690,730,770,460,810,800,820:REMFORMICA
390 REM*?THEGLUES*
400 GOSUB90:PRINTGL$(8):PRINTGL$(1):PRINTGL$(4):PRINTGL$(5):PRINTGL$(9)
402 PRINTGL$(2):PRINTGL$(6):PRINTGL$(7):GOTO840:REMWOOD/WOOD
410 GOSUB90:PRINTGL$(4):PRINTGL$(5):PRINTGL$(2):PRINTGL$(10):PRINTGL$(6):GOTO840:REMWOOD/GLASS
420 GOSUB90:PRINTGL$(2):PRINTGL$(9):PRINTGL$(10):GOTO840:REMWOOD/RUBBER
430 GOSUB90:PRINTGL$(2):PRINTGL$(6):PRINTGL$(10):PRINTGL$(4):PRINTGL$(5):GOTO840:REMWOOD/METAL
440 GOSUB90:PRINTGL$(8):PRINTGL$(2):PRINTGL$(10):PRINTGL$(6):PRINTGL$(9):PRINTGL$(7):GOTO840:REMWOOD
450 GOSUB90:PRINTGL$(2):FORI=4TO6:PRINTGL$(I):NEXTI:GOSUB100:GOTO840:REMWOOD/HARDPLASTIC
460 GOSUB90:PRINTGL$(9):PRINTGL$(2):PRINTGL$(6):GOSUB100:GOTO840:REMWOOD/SOFTPLASTIC
470 GOSUB90:PRINTGL$(11):PRINTGL$(2):PRINTGL$(6):GOSUB100:GOTO840:REMWOOD/VINYLTILE
480 GOSUB90:PRINTGL$(4):PRINTGL$(5):PRINTGL$(10):PRINTGL$(7):PRINTGL$(6):PRINTGL$(2):GOTO840:REMWOOD
490 GOSUB90:PRINTGL$(2):PRINTGL$(1):PRINTGL$(10):PRINTGL$(8):PRINTGL$(6)
492 PRINTGL$(4):PRINTGL$(5):PRINTGL$(7):GOTO840:REMWOOD/FORMICA
500 GOSUB90:FORI=3TO6:PRINTGL$(I):NEXTI:GOTO840:REMGLASS/GLASS
510 GOSUB90:PRINTGL$(3):PRINTGL$(9):PRINTGL$(2):PRINTGL$(10):GOTO840:REMGLASS/RUBBER
520 GOSUB90:PRINTGL$(3):PRINTGL$(2):PRINTGL$(6):PRINTGL$(10):PRINTGL$(4):PRINTGL$(5):GOTO840:REMGLASS
530 GOSUB90:PRINTGL$(3):PRINTGL$(2):PRINTGL$(10):PRINTGL$(9):PRINTGL$(6):PRINTGL$(7):GOTO840:REMGLASS
540 GOSUB90:PRINTGL$(4):PRINTGL$(5):PRINTGL$(3):PRINTGL$(6):GOSUB100:GOTO840:REMGLASS
550 GOSUB90:PRINTGL$(2):PRINTGL$(7):PRINTGL$(11):PRINTGL$(6):PRINTGL$(3):GOSUB100:GOTO840:REMGLASS
560 GOSUB90:PRINTGL$(4):PRINTGL$(5):PRINTGL$(10):PRINTGL$(7):PRINTGL$(6):PRINTGL$(3):GOTO840:REMGLASS
570 GOSUB90:FORI=2TO6:PRINTGL$(I):NEXTI:PRINTGL$(10):GOTO840:REMGLASS/FORMICA
580 GOSUB90:PRINTGL$(10):PRINTGL$(3):GOTO840:REMRUBBER/METAL
590 GOSUB90:PRINTGL$(3):PRINTGL$(2):PRINTGL$(10):PRINTGL$(9):GOTO840:REMRUBBER/LEATHER
600 GOSUB90:PRINTGL$(3):PRINTGL$(2):PRINTGL$(9):GOSUB100:GOTO840:REMRUBBER/HARDPLASTIC
610 GOSUB90:PRINTGL$(9):PRINTGL$(2):GOSUB100:GOTO840:REMRUBBER/SOFTPLASTIC
620 GOSUB90:PRINTGL$(9):PRINTGL$(2):PRINTGL$(11):PRINTGL$(3):GOSUB100:GOTO840:REMRUBBER/VINYL
630 GOSUB90:PRINTGL$(2):PRINTGL$(9):PRINTGL$(3):PRINTGL$(10):GOTO840:REMRUBBER/CERAMICTILE
640 GOSUB90:FORI=3TO5:PRINTGL$(I):NEXTI:PRINTGL$(10):PRINTGL$(2):PRINTGL$(6):GOTO840:REMMETAL
650 GOSUB90:PRINTGL$(3):PRINTGL$(10):PRINTGL$(2):PRINTGL$(6):GOTO840:REMMETAL/LEATHER
660 GOSUB90:PRINTGL$(2):PRINTGL$(4):PRINTGL$(5):PRINTGL$(3):GOSUB100:GOTO840:REMMETAL/HPLASTIC
670 GOSUB90:PRINTGL$(2):PRINTGL$(6):GOSUB100:GOTO840:REMMETAL/SOFTPLASTIC
680 GOSUB90:PRINTGL$(2):PRINTGL$(6):PRINTGL$(3):GOSUB100:GOTO840:REMMETAL/VINYLTILE
690 GOSUB90:PRINTGL$(2):PRINTGL$(6):PRINTGL$(10):PRINTGL$(3):PRINTGL$(4):PRINTGL$(5):GOTO840:REMMETAL
700 GOSUB90:PRINTGL$(2):PRINTGL$(10):PRINTGL$(9):PRINTGL$(6):GOTO840:REMLEATHER/LEATHER
710 GOSUB90:PRINTGL$(2):PRINTGL$(9):PRINTGL$(6):PRINTGL$(3):GOSUB100:GOTO840:REMLEATHER
720 GOSUB90:PRINTGL$(2):PRINTGL$(9):PRINTGL$(6):PRINTGL$(3):PRINTGL$(11):GOSUB100:GOTO840:REMLEATHER
730 GOSUB90:PRINTGL$(2):PRINTGL$(10):PRINTGL$(9):PRINTGL$(6):PRINTGL$(3):GOTO840:REMLEATHER/CERAM
740 GOSUB90:PRINTGL$(4):PRINTGL$(5):PRINTGL$(3):PRINTGL$(2):PRINTGL$(6):PRINTGL$(9):GOSUB100:GOTO840
750 GOSUB90:PRINTGL$(2):PRINTGL$(9):PRINTGL$(6):PRINTGL$(4):PRINTGL$(5):GOSUB100:GOTO840
760 GOSUB90:PRINTGL$(2):PRINTGL$(9):PRINTGL$(6):PRINTGL$(3):GOSUB100:GOTO840:REMPLASTIC/VINYL
770 GOSUB90:PRINTGL$(2):PRINTGL$(9):PRINTGL$(6):PRINTGL$(4):PRINTGL$(5):PRINTGL$(3):GOSUB100:GOTO840
780 GOSUB90:PRINTGL$(11):PRINTGL$(2):PRINTGL$(9):PRINTGL$(6):PRINTGL$(3):GOSUB100:GOTO840:REMVI/VI
790 GOSUB90:PRINTGL$(11):PRINTGL$(2):PRINTGL$(9):PRINTGL$(6):PRINTGL$(3):PRINTGL$(7):GOSUB100:GOTO840
800 GOSUB90:PRINTGL$(3):PRINTGL$(10):PRINTGL$(2):PRINTGL$(4):PRINTGL$(5):PRINTGL$(6):PRINTGL$(9):PRINTGL$(7)
802 GOTO840:REMCERAMICTILE/CERAMICTILEORFORMICA
810 GOSUB90:PRINTGL$(11):PRINTGL$(2):PRINTGL$(9):PRINTGL$(6):PRINTGL$(3):PRINTGL$(7):GOSUB100:GOTO840
820 GOSUB90:PRINTGL$(2):PRINTGL$(4):PRINTGL$(5):PRINTGL$(3):PRINTGL$(10):PRINTGL$(6):PRINTGL$(7)
830 REM*END*
840 PRINT"[196]O YOU WANT ANOTHER SELECTION (Y/N)?";
841 POKE198,0:WAIT198,1:GETQ$:IFQ$<>"Y"ANDQ$<>"N"THEN841
842 IFQ$="N"THENF$="GLUE GUIDE":GOTO60000
850 IFQ$<>"Y"THEN840
860 GOTO210
870 REM*GLUE/MATERIALDATA*
880 DATA "[195][193][211][197][201][206] [199][204][213][197]","[195][207][206][212][193][195][212] [195][197][205][197][206][212]"
882 DATA "[195][217][193][206][207][193][195][210][217][204][193][212][197] (INSTANT GLUE)","[197][208][207][216][217] (FAST)"
884 DATA "[197][208][207][216][217] (SLOW)","[200][207][213][211][197][200][207][204][196][160][195][197][205][197][206][212]"
886 DATA "[205][193][211][212][201][195]","[208][207][204][217][214][201][206][217][204] (WHITE)","[210][213][194][194][197][210][160][195][197][205][197][206][212]"
888 DATA "[211][201][204][201][195][207][206][197] (CAULK)","[208][204][193][211][212][201][195][160][210][197][211][201][206]"
890 DATA"[215][207][207][196]","[199][204][193][211][211]/[195][200][201][206][193]","[210][213][194][194][197][210]","[205][197][212][193][204]","[204][197][193][212][200][197][210]"
892 DATA "[200][193][210][196][160][208][204][193][211][212][201][195]","[211][207][198][212] [208][204][193][211][212][201][195]","[214][201][206][217][204][160][212][201][204][197]","[195][197][210][193][205][201][195][160][212][201][204][197]"
894 DATA "[208][204][193][211][212][201][195] [204][193][205][201][206][193][212][197]"
900 REM
60000 REM  RUN A PROGRAM
60010 PRINT"[147]LOAD F$,8"
60020 PRINT"RUN"
60030 POKE631,13:POKE632,13:POKE198,2:END